home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / sat-7.bas < prev    next >
BASIC Source File  |  1994-06-23  |  2KB  |  71 lines
  1. 5 COLOR 0,13:PRINT
  2. 6 PRINT
  3. 10 PRINT,"TRUE BEARING AND ELEVATION OF GEO-SYNCHRONOUS SATELLITE."
  4. 11 PRINT,"FROM SUN CITY CALIFORNIA"
  5. 12 COLOR 15,0:PRINT
  6. 13 PRINT
  7. 20 P=355/113
  8. 30 Z=180/P
  9. 40 R=6367
  10. 50 H=35800!
  11. 60 INPUT "LONGITUDE OF SATELLITE:DG,MN,E OR W";AE,AF,A$
  12. 70 AG=AE+AF/60
  13. 80 IF A$="W" THEN AG=-AG
  14. 90 AH=117
  15. 91 AI=12.45
  16. 92 B$="W"
  17. 100 AJ=AH+AI/60
  18. 110 IF B$="W" THEN AJ=-AJ
  19. 120 AK=33
  20. 121 AL=42.95
  21. 122 C$="N"
  22. 130 AM=AK+AL/60
  23. 140 IF C$="S" THEN AM=-AM
  24. 150 B=AJ-AG
  25. 152 IF B > 180 THEN B=B-360
  26. 154 J=ABS(B)
  27. 156 IF J < 81.3 THEN 160 ELSE 1000
  28. 160 AA=B/Z
  29. 170 AB=TAN(AA)
  30. 180 AC=AM/Z
  31. 190 AD=SIN(AC)
  32. 191 IF C$="S" THEN 220 ELSE 200
  33. 200 ZN=180+Z*(ATN(AB/AD))
  34. 211 GOTO 250
  35. 220 ZS=Z*(ATN(AB/AD))
  36. 250 K=R^2
  37. 260 L=(R+H)^2
  38. 270 M=2*R*(R+H)
  39. 280 N=COS(AA)
  40. 290 Q=COS(AC)
  41. 300 T=N*Q
  42. 310 CA=-ATN(T/SQR(-T*T+1))+1.5708
  43. 320 C=Z*CA
  44. 330 IF C < 81.3 THEN 370 ELSE 1000
  45. 370 S=(K+L-M*T)^.5
  46. 380 U=S^2
  47. 390 V=(U+K-L)/(2*R*S)
  48. 400 W=-ATN(V/SQR(-V*V+1))+1.5708
  49. 410 E=Z*W-90
  50. 420 PRINT
  51. 430 COLOR 0,15:PRINT
  52. 440 PRINT
  53. 450 PRINT "                            ***ANSWERS***"
  54. 460 PRINT
  55. 470 IF J < 81.3 THEN 480 ELSE 1000
  56. 480 IF C < 81.3 THEN 484 ELSE 1000
  57. 484 IF C$="N" THEN 490 ELSE 500
  58. 490 PRINT ZN, "         TRUE BEARING OF SATELLITE."
  59. 500 IF C$="S" THEN 510 ELSE 520
  60. 510 PRINT ZS, "         TRUE BEARING OF SATELLITE."
  61. 520 PRINT E, "         ELEVATION ANGLE OF SATELLITE."
  62. 525 PRINT -AG,A$,"     LONGITUDE OF SATELLITE"
  63. 530 GOTO 1020
  64. 1000 PRINT:PRINT: PRINT, "SATELLITE IS BELOW THE HORIZON"
  65. 1010 PRINT
  66. 1020 COLOR 0,10:PRINT
  67. 1030 PRINT
  68. 1040 PRINT "                   PROGRAM BY I.L. McNally"
  69. 1050 PRINT
  70. 1060 COLOR 15,0
  71.